home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / vpi1_330.zip / DEMOLOAD.PRG < prev    next >
Text File  |  1991-12-30  |  3KB  |  145 lines
  1. **********************************************************************
  2. * demoload.prg     loading subroutine...called by demo
  3. *                 called by DEMO.PRG (VP-Info Level 1)
  4. *                          Tue  12-24-1991  15:47:10
  5. * (C) Copyright 1986-1991 Sub Rosa International Inc.
  6. *  Sid Bursten and Bernie Melman
  7. **********************************************************************
  8. VARIABLES ANS,CHANGE,COUNT,DATA,DELAY,DELAY2,FIRM,GO_UP,GRAPHICS,I,II,J,JUNK,LASTSET,LIMIT,MACCT,MACCT2,MDATE,MENUCH2,MENUCHOICE,MENUSET,OFFSET,OK,RDATE,ROW1,SCR,SIGNAL,TEMPFILE,TEXTFILE,TIME
  9. ON error
  10.    SCREEN 1
  11.    WINDOW
  12.    :color=7
  13.    COLOR 7 0 0 24 79
  14.    ? 'Execution terminated on error:',:message
  15.    CANCEL
  16. ENDON
  17. IF type(:serial)<>'N'
  18.    :serial=:color
  19. ENDIF   
  20. pause=t
  21. cycle=0
  22. signal=0
  23. SET escape on
  24. set echo off
  25. set date to 'yymmdd'
  26. :PICTURE='99999'
  27. SET library to demo
  28. SET width to 80
  29. WINDOW
  30. IF :company='    '
  31.    :company='D&G Hardware'
  32. ENDIF
  33. SCREEN 1,2
  34. SCREEN 2
  35. :color=112
  36. CLS
  37. COLOR 112,0,0,24,79
  38. IF .not. ropen('DEMO.TXT')
  39.    ? 'DEMO.TXT not found'
  40.    CANCEL
  41. ENDIF
  42. repeating=f
  43. thisyr=left(date(1),2)
  44. textfile=1
  45. tempfile='demotemp'
  46. texts[1]='demo.txt'
  47. texts[2]='new.txt'
  48. COPY file democust to demotemp
  49. ERASE
  50. cycle=0
  51. SET execute off
  52. if :color<>7
  53.    graph='Y'
  54. ENDIF
  55. IF type(graph)<>"C"
  56.    graph='Y'
  57.    TEXT .1
  58.    ON field
  59.    FIELD graph
  60.       IF @(graph,'YN')=0
  61.          :field=field(graph)
  62.       ELSE
  63.          :field=65
  64.       ENDIF
  65.    ENDON
  66.    @ 5,5 say cen(:company,70)
  67.    BOX 2,2,22,77 double
  68.    SCREEN 2,1
  69.    SCREEN 1
  70.    READ
  71. ENDIF
  72. IF graph="Y"
  73.    graphics=t
  74. ELSE
  75.    graphics=f
  76. ENDIF
  77. IF graphics
  78.    bold=48
  79.    blue= 49
  80.    ruby=52
  81.    magenta=53
  82.    gold=49
  83.    black=58
  84.    lightblue=52 ; was 57
  85.    red=59
  86.    yellow=62
  87.    white=63
  88.    light=8
  89. ELSE
  90.    bold=112
  91.    blue=112
  92.    ruby=112
  93.    magenta=112
  94.    gold=112
  95.    black=112
  96.    lightblue=112
  97.    red=112
  98.    yellow=112
  99.    white=112
  100.    light=112
  101. ENDIF
  102. d[1]=blue
  103. d[2]=bold
  104. d[3]=ruby
  105. d[4]=gold
  106. b2[1]=bold
  107. b2[2]=blue
  108. b2[3]=ruby
  109. b2[4]=gold
  110. b2[5]=black
  111. b2[6]=red
  112. b2[7]=lightblue
  113. b2[8]=white
  114. b2[9]=yellow
  115. b2[10]=magenta
  116. b2[11]=ruby
  117. flash[1]='   1. Multi-file report generator'
  118. flash[2]='   2. Full screen editor         '
  119. flash[3]='   3. Multi-dimensional arrays    '
  120. flash[4]='   4. Relations including multiple child relationships'
  121. flash[5]='   5. Process any DOS or sequential text file'
  122. flash[6]='   6. List processing'
  123. flash[7]='   7. Input screen painting within the program'
  124. flash[8]='   8. Error reports for UPDATE and POST'
  125. flash[9]='   9. Fully automatic database reconfiguration'
  126. flash[10]='  10. Date formatting and calculation'
  127. menus[1,1]=39
  128. menus[2,1]=40
  129. menus[3,1]=41
  130. menus[4,1]=42
  131. menus[1,2]=5
  132. menus[2,2]=7
  133. menus[3,2]=3
  134. menus[4,2]=9
  135. SCREEN 2
  136. COLOR light,0,0,24,79
  137. SELECT 1
  138. USE#1 democust
  139. USE#2 demoinv
  140. USE#3 demogl index demogl1
  141. USE#4 demotrn index demotrn1
  142. RETURN
  143. *
  144. *                     *** end of program demoload.prg
  145.